--/---- Addresses -----|-------------------------------------------------------
Original:		C2/2872 - C2/2882
In-line:		C2/2872 - C2/2882
Out-line:		C2/A65A - C2/A66F

--/---- Check sprite --|-------------------------------------------------------
In-line:		C2/2872 - C2/2882

**/****	Set Y register ( Y = X * 16)
C2/2872	8A		TXA
C2/2873	0A		ASL
C2/2874	0A		ASL
C2/2875	0A		ASL
C2/2876	0A		ASL
C2/2877	A8		TAY

**/****	Check actual sprite
C2/2878	B9 AE 2E	LDA $2EAE,Y	Actual Sprite
C2/287B	C9 0C		CMP #$0C	Is Gogo's sprite?
C2/287D	D0 04		BNE $2883	Skip if not

**/****	Change Gogo's sprite
C2/287F	20 5A A6	JSR $A65A	Change Gogo's sprite
C2/2882	EA		NOP

--/---- Set sprite ----|-------------------------------------------------------
Out-line:		C2/A65A - C2/A66F

**/****	Check Colosseum
C2/A65A	AD 97 3A	LDA $3A97	Colosseum flag
C2/A65D	D0 10		BNE $A66F	Don't change sprites if in Colosseum

**/****	Calculate and set sprite for Gogo
C2/A65F	DA		PHX		Save X
C2/A660	7B		TDC		Clear top byte of A
C2/A661	A9 16		LDA #$16	Maximum sprite ID available (plus one)
C2/A663	AA		TAX		Save for division
C2/A664	AD 66 18	LDA $1866	Number of steps (low byte)
C2/A667	20 92 47	JSR $4792	Division function: (number of steps / maximum sprite available)
C2/A66A	8A		TXA		get remainder of division
C2/A66B	99 AE 2E	STA $2EAE,Y	Set sprite
C2/A66E	FA		PLX		Restore X
C2/A66F	60		RTS
